From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 May 1993 22:21:12 +0000 (+0000)
Subject: (flush-lines, keep-lines, how-many):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96375
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=72f21cdfe326949c5c12b39ae5b14b628c000749;p=emacs.git

(flush-lines, keep-lines, how-many):
Delete spurious `s' from prompt arg to read-from-minibuffer.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index a3e2f03a5fa..488e1f19603 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -152,7 +152,7 @@ which will run faster and will not set the mark or print anything."
 A match split across lines preserves all the lines it lies in.
 Applies to all lines after point."
   (interactive (list (read-from-minibuffer
-		      "sKeep lines (containing match for regexp): "
+		      "Keep lines (containing match for regexp): "
 		      nil nil nil 'regexp-history)))
   (save-excursion
     (or (bolp) (forward-line 1))
@@ -179,7 +179,7 @@ Applies to all lines after point."
 If a match is split across lines, all the lines it lies in are deleted.
 Applies to lines after point."
   (interactive (list (read-from-minibuffer
-		      "sFlush lines (containing match for regexp): "
+		      "Flush lines (containing match for regexp): "
 		      nil nil nil 'regexp-history)))
   (save-excursion
     (while (and (not (eobp))
@@ -193,7 +193,7 @@ Applies to lines after point."
 (defun how-many (regexp)
   "Print number of matches for REGEXP following point."
   (interactive (list (read-from-minibuffer
-		      "sHow many matches for (regexp): "
+		      "How many matches for (regexp): "
 		      nil nil nil 'regexp-history)))
   (let ((count 0) opoint)
     (save-excursion